------------------------- ¥ Buttons Macros ¥ -------------------------macro hiliteCast bitmapSpriteNum, theMacro set flag = 0 put the clickOn into ClickOnSpriteNum put the castNum of sprite bitmapSpriteNum into upCastNum put the name of cast upCastNum into upCastName put upCastName&"Down" into downCastName put the number of cast downCastName into downCastNum --put "Cast: " & upCastNum & ", " & upCastName & ", Down: " & downCastNum --puppetSound "DoorOpen" -- Cast named "popDown" is a sound put swapCast(ClickOnSpriteNum,bitmapSpriteNum,upCastNum,downCastNum) into flag repeat while the stillDown put swapCast(ClickOnSpriteNum,bitmapSpriteNum,upCastNum,downCastNum) into flag end repeat -- If the mouse was over the object or controller when released, perform the macro if flag = 1 then DelayEverything 40 -- delays everything for 20 ticks so you can see the hilited cast set the castNum of sprite bitmapSpriteNum to upCastNum updateStage puppetSound 0 do theMacro end if exitmacro swapCast ClickOnSpriteNum, bitmapSpriteNum, upCastNum, downCastNum if rollover(ClickOnSpriteNum) then set the castNum of sprite bitmapSpriteNum to downCastNum updateStage return 1 else set the castNum of sprite bitmapSpriteNum to upCastNum updateStage return 0 end if exitmacro delayEverything numTicks startTimer repeat while the timer < numTicks nothing end repeat exit
Script Channel Commands
--------------------
go to frame "end"go to frame "end" of movie "local.15"go marker (0)go to frame "return" of movie "intro.01"go to movie "exit.21"go marker (1)hiliteCast 8,"go to frame " & quote & "second" & quotehiliteCast 9,"go to frame " & quote & "EH" & quotehiliteCast 10,"go to frame " & quote & "A2B" & quotehiliteCast 11,"go to frame " & quote & "split" & quotehiliteCast 12,"go to frame " & quote & "other" & quote
